home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 30 / PC Gamer IT CD 30 1-2.iso / MOTS / GAMEDATA / EPISODE / JKM_PCG.GOO / cog_s1l3_static.cog < prev    next >
Encoding:
Text File  |  1998-02-25  |  519 b   |  36 lines
  1. #S1L3_Static.cog
  2.  
  3. symbols
  4. message    startup
  5. message    timer
  6. int        timertime    local
  7. surface    screen
  8. sound        static=00techamb02.wav
  9. end
  10.  
  11. code
  12. startup:
  13.     SetWallCel(screen,0);
  14.     timertime=((rand()*0.25)+.001);
  15.     SetTimer(timertime);
  16.     return;
  17. timer:
  18.     if(GetWallCel(screen)==0)
  19.     {
  20.         SetWallCel(screen,1);
  21.         timertime=(rand()*0.25);
  22.         SetTimer(timertime);
  23.         return;
  24.     }
  25.     if(GetWallCel(screen)==1)
  26.     {
  27.         SetWallCel(screen,0);
  28.         timertime=(rand()*0.25);
  29.         SetTimer(timertime);
  30.         return;
  31.     }
  32.     return;
  33. end
  34.  
  35.  
  36.